1 POKE36879,56:GOSUB500
2 PL=3:S=36878:S1=S-1:GOSUB100
5 POKEL,.:POKEL+CC,7
10 POKE37154,127:IFPEEK(37152)=119THEND=1
15 JR=PEEK(37137):IFJR=118ORJR=54THEND=22
20 IFJR=110ORJR=46THEND=-1
25 IFJR=122ORJR=58THEND=-22
30 L1=PEEK(L+D):IFL1=63THEND=0:GOTO10
35 IFL1=4THENPO=PO+5:GOSUB90
38 IFINT(RND(0)*10)=9THENGOSUB50
40 POKEL,32:L=L+D:POKEL,.:POKEL+CC,7:D=0:GOTO10
50 R=INT(RND(1)*10):R1=R*44
55 FORX=7725+R1TO7741+R1:POKEX,63:POKEX+CC,1:NEXTX
60 IFL>7724+R1ANDL<7742+R1THENPL=PL-1:GOSUB600
65 FORX=7725+R1TO7741+R1:POKEX,32:NEXTX:RETURN
90 POKES,15:POKES,0:IFPO>HSTHENHS=PO
92 PRINT"";PO:PRINT"":PRINTTAB(17)"[145][145][145][145]";HS
94 IFPO/400=INT(PO/400)THENGOSUB400
95 RETURN
100 CC=30720:L=7931:D=0:HS=(PEEK(901)*256)+PEEK(900):POKE36869,255
110 PRINT"[147][159]??????????????????????"
115 PRINT"[145][156]??????????????????????[157][157]"
120 PRINT"[145]?[159]                 ??[158]?[156]?"
130 PRINT"[145]? ? ? ? ? ? ? ? ? ??[158]?[156]?"
135 PRINT"[145]?[159]                 ??[158]?[156]?"
140 PRINT"[145]? ? ? ? ? ? ? ? ? ??[158]?[156]?"
145 PRINT"[145]?[159]                 ??[158]?[156]?"
150 PRINT"[145]? ? ? ? ? ? ? ? ? ??[158]?[156]?"
155 PRINT"[145]?[159]                 ??[158]?[156]?"
160 PRINT"[145]? ? ? ? ? ? ? ? ? ??[158]?[156]?"
165 PRINT"[145]?[159]                 ??[158]?[156]?"
170 PRINT"[145]? ? ? ? ? ? ? ? ? ??[158]?[156]?"
175 PRINT"[145]?[159]                 ??[158]?[156]?"
180 PRINT"[145]? ? ? ? ? ? ? ? ? ??[158]?[156]?"
185 PRINT"[145]?[159]                 ??[158]?[156]?"
190 PRINT"[145]? ? ? ? ? ? ? ? ? ??[158]?[156]?"
195 PRINT"[145]?[159]                 ??[158]?[156]?"
200 PRINT"[145]? ? ? ? ? ? ? ? ? ??[158]?[156]?"
205 PRINT"[145]?[159]                 ??[158]?[156]?"
210 PRINT"[145]? ? ? ? ? ? ? ? ? ??[158]?[156]?"
215 PRINT"[145]?[159]                 ??[158]?[156]?[157][157][157]"
220 PRINT"[145]????????????????????[158]?[156]?"
225 FORX=8164TO8185:POKEX,63:POKEX+CC,3:NEXTX:POKE8184+CC,7:POKE8185+CC,4
238 PRINT"":PRINTTAB(21)"[144]S[157]P[157]A[157]C[157]E[157]M[157]A[157]Z[157]E"
239 PRINT"[144]BY, ROBERT ALONSO"
240 PRINT"[144]SCORE:"::PRINT"":PRINTTAB(12)"[145][145][145][145][145]HIGH:"
400 FORX=7747TO7763STEP2:FORX1=0TO352STEP44:POKEX+X1,4:POKEX+X1+CC,7:NEXTX1,X
420 RETURN
500 PRINT"[147]":FORX1=1TO200:PRINT""
505 DL=INT(RND(1)*500)+1:DC=INT(RND(1)*8)+1:POKE7680+DL,160:POKE38400+DL,DC
507 PRINTTAB(8)
510 FORX=0TO7:POKE646,X:PRINT"[157][157][157][157][157][157][157][157]SPACE MAZE";:NEXT
515 NEXTX1
545 IFPEEK(7168)<>24THENPOKE900,0:POKE901,0
550 FORX=7168TO7679:POKEX,PEEK(X+25600):NEXT
555 FORX=0TO7:READA:POKE7168+X,A:NEXT
557 FORX=0TO7:READA:POKE7200+X,A:NEXT
560 FORX=0TO7:POKE7672+X,255:NEXT
570 RETURN
600 POKES1,222:FORX=9TO15STEP2:POKES,X:FORX1=1TO45:NEXTX1,X:FORX2=1TO50:NEXTX2
605 FORX=15TO10STEP-1:POKES,X:FORX1=1TO50:NEXTX1,X:POKES,0
610 FORX=15TO0STEP-1:POKES,X:FORX1=1TO70:NEXTX1,X
620 IFPL=0THEN660
630 RETURN
660 H1=INT(HS/256):H2=HS-H1*256
670 POKE900,H2:POKE901,H1
680 PRINT"[147]":POKE36879,27:POKE36869,240:END
800 DATA24,60,126,24,189,231,195,129
810 DATA0,0,0,24,24,0,0,0